Imports Microsoft.VisualBasic

Namespace SqlWebAdmin.VisualBasic.Controls

    Public Class ActiveUsersWebPart
        Inherits SqlWebAdmin.CSharp.Controls.CurrentServerWebPart

        Protected Overrides Sub RenderWebPart(ByVal server As Microsoft.SqlServer.Management.Smo.Server, ByVal writer As HtmlTextWriter)
            writer.WriteLine("<table border=""0"" width=""100%"">")
            writer.WriteLine("<tr><th width=""70%"" align=""left""><b>Login:</b></td><td align=""left""><b>Status:</b></th><tr>")
            writer.WriteLine("<tr><td align=""left"">REDMOND\a-ngurd</td><td align=""left"">Sleeping</td></tr>")
            writer.WriteLine("<tr><td align=""left"">REDMOND\mworries</td><td align=""left"">Sleeping</td></tr>")
            writer.WriteLine("<tr><td align=""left"">REDMOND\lmueller</td><td align=""left"">Sleeping</td></tr>")
            writer.WriteLine("</table>")
        End Sub

    End Class

End Namespace
